fig <- gapminder %>%
plot_ly(x = ~gdpPercap, y = ~lifeExp,
text = ~country,
hoverinfo="text",
size = ~pop) %>%
layout(xaxis = list(type = "log")) %>%
add_markers(color = ~continent, frame = ~year)
fig